From 730426aeb14844bcd6fe594d20c967bb8ec7a89f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 25 May 1993 19:05:13 +0000 Subject: [PATCH] (dired-compress-file): Test the return value of dired-check-process properly. Fix use of nonexistent var `name'. --- lisp/dired-aux.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index f8503f2d07f..3d2f477962c 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -493,7 +493,7 @@ and use this command with a prefix argument (the value does not matter)." (t (if (not (dired-check-process (concat "Compressing " file) "compress" "-f" file)) - (concat name ".Z")))))) + (concat file ".Z")))))) (defun dired-mark-confirm (op-symbol arg) ;; Request confirmation from the user that the operation described -- 2.30.2